unit uBaseLog;

interface

uses SysUtils, MisString;

procedure HandleException(E:Exception; NameSpace, ClassName, FuncName:string; Active:string='';ThreadID:string = '');

implementation

procedure HandleException(E:Exception; NameSpace, ClassName, FuncName, Active, ThreadID:string);
begin
  WriteLog(E.Message);
end;

end.

